﻿<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
u=Request.QueryString("u")
if u="" then
u=0
end if
select case u
case "0"
aa="#F6F8FA"
ab="#111111"
ba="#E6E6FA"
bb="#000000"
case "1"
aa="#2F4F4F"
ab="#D9D919"
ba="#97694F"
bb="#D8D818"
End Select 
%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><title>超级浏览器</title>
<meta name="viewport" content="width=device-width" />
<style  type="text/css">
body {background:url(1.jpg);font-size:14px;line-height:1.3;width:210px;border:1px solid grey;padding:5px;margin:0 auto;margin-top:10px;margin-bottom:10px}
form {background:#F9F4E3}
img {border:0;}
a {font-size:14px;text-decoration:none;color:#1874CD}
a:hover {background:#4169E1;color:#fff}
.navi {background:<%=aa%>;color:<%=ab%>}
.navi a{color:#4169E1}
.block5 {background:<%=ba%>;color:<%=bb%>}
.block5 a{color:#4169E1}
* {margin-bottom:3px;}
</style>
</head>
<body>
<!--#include virtual="/css.inc"-->
<% 
Response.Buffer = True 
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
 t = GetBody(Path)      
End function
function getHTTPPage(url) 
dim Http 
set Http=server.createobject("Microsoft.XMLHTTP") 
Http.open "post",url,false 
Http.send() 
if Http.readystate<>4 then 
exit function 
end if 
getHTTPPage=bytesToBSTR(Http.responseBody,"utf-8")
set http=nothing 
if err.number<>0 then err.Clear 
end function 

Function BytesToBstr(body,Cset) 
dim objstream 
set objstream = Server.CreateObject("adodb.stream") 
objstream.Type = 1 
objstream.Mode =3 
objstream.Open 
objstream.Write body 
objstream.Position = 0 
objstream.Type = 2 
objstream.Charset = Cset 
BytesToBstr = objstream.ReadText 
objstream.Close 
set objstream = nothing 
End Function 
%>
